Első 10 darab páratlan szám kiíratása előltesztelő (while) ciklussal (Elso10ParatlanSzam.pas)
program Elso10ParatlanSzam;
uses crt;
var i,n,a:integer;
BEGIN
n:=10;
n = sorozatelemek száma
i:=1;
i = ciklusváltozó
a:=1;
a = kiirandó érték
while(i<=n) do begin
writeln(a);
Kiírjuk az a változó aktuális értékét.
a:=a+2;
Megnöveljük az a változó értékét 2-vel, így a következő páratlan számot kapjuk.
i:=i+1;
end;
END.
Első n darab páratlan szám kiíratása előltesztelő (while) ciklussal (ElsoNParatlanSzam.pas)
 |
uses crt;
var i,a,n:integer;
BEGIN
write('n:=');
Kiírjuk a képernyőre az "n:=" szöveget, így jelezvén, hogy számot kérünk be.
readln(n);
Beolvassuk a billentyűzetről az értéket, amely az ENTER billentyű lenyomása után kerül eltárolásra. Ezután ezzel az értékkel dolgozunk tovább a ciklusban.
i:=1;
a:=1;
while(i<=n) do begin
writeln(a);
a:=a+2;
i:=i+1;
end;
END.
Első n darab páratlan szám kiíratása for ciklussal (ElsoNParatlanSzamV1.pas)
program ElsoNParatlanSzamV1;
uses crt;
var i,a,n:integer;
BEGIN
write('n:=');
readln(n);
a:=1;
for i:=1 to n do begin
writeln(a);
a:=a+2;
end;
END.
Első n darab páratlan szám kiíratása hátultesztelő (repeat - until) ciklussal (ElsoNParatlanSzamV2.pas)
 |
uses crt;
var i,a,n:integer;
BEGIN
write('n:=');
readln(n);
i:=1;
a:=1;
repeat
writeln(a);
a:=a+2;
i:=i+1;
until(i>n);
END.